10 DIM L$(99):D$ = CHR$(4): PRINT D$"CLOSE": PRINT D$"PREFIX": INPUT P$: HOME : INPUT "COMMAND:";C$: PRINT C$" ALL FILES? (Y/N):";: INPUT "";A$: PRINT : IF A$ = "Y" THEN PRINT D$"OPEN"P$",TDIR": PRINT D$"READ"P$: FOR I = 1 TO 3: INPUT L$: NEXT : FOR I = 0 TO 99: INPUT L$(I): IF LEN(L$(I)) < >0 THEN NEXT
20 IF A$ = "Y" THEN PRINT D$"CLOSE": POKE 34,2: FOR J = 0 TO I -1:L$ = MID$ (L$(J),2,15): PRINT D$;C$;L$: PRINT L$: NEXT : PRINT : PRINT "COMPLETED.": POKE 34,0: VTAB 23